home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 104
/
104.d81
/
disk fix
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
836b
|
25 lines
2 poke56,32:poke55,32:clr
4 dv=peek(186):ifdv<8thendv=8
10 poke53281,0:poke53280,0:print"[147][129] [212][200][197] [205][201][199][200][212][217] [204][207][193][196][211][212][193][210]"
12 printtab(14)"[196][201][211][203] [198][201][216] [208][201][195]"
13 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
14 sys57812"disk fix.shp",dv,0:poke780,0:poke781,0:poke782,32:sys65493
16 poke251,32:poke252,64:poke253,96
18 poke53280,0
20 print"[155] [215]hile the [196][201][211][203] [198][201][216] [208][201][195] is showing
22 [153]" press any key to return to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL).
24 print" [208]ress a key now.
28 [151]198,0
30 [161]a$:[139]a$[178]""[167]30
32 [158]51456:[158]51459
38 [151]198,0
40 [161]a$:[139]a$[178]""[167]40
42 [158]51459:[153]"load":[151]53281,0
50 [137]40000
10000 [159]15,8,15,"s0:disk fix":[160]15:[148]"disk fix",8:[128]
40000 a$[178]"hello connect":[129]i[178]8[164]9:[160]2:[159]2,i,2:[160]2:[139]st[167]40030
40010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40030
40020 [130]:[153]"load":[151]2048,0:[151]44,8:[151]53272,23:[151]186,8:[128]
40030 [151]646,[194](53281):[153]"loadload"[199](34)a$[199](34)","i
40040 [153]"run":[151]44,8:[151]2048,0:[151]631,13:[151]632,13:[151]198,2:[128]